home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / rcheck.arc / RCHECK.CMD < prev    next >
Encoding:
Text File  |  1984-12-18  |  640 b   |  36 lines
  1. SET ECHO OFF
  2. SET MES OFF
  3. SET CLEAR OFF
  4. OPEN b:CHECKS
  5. NEW
  6. TYPE b:RCHECK.MNU
  7. FILLIN MAIN USING "ENTER CHOICE  " AT 18 30
  8. IF MAIN = 1 THEN
  9.    ENTER CHECKS
  10.    ASSIGN AMT TO AMT X -1 IN CHECKS WHERE CKNUM EXISTS AND AMT > 0
  11. ENDIF
  12. IF MAIN = 2 THEN
  13.    ENTER DEPS
  14.    ASSIGN AMT TO AMT X -1 IN CHECKS WHERE TRANCODE GE 4  AND AMT > 0
  15. ENDIF
  16. IF MAIN = 3 THEN
  17.    INPUT b:BAL.CMD
  18. ENDIF
  19. IF MAIN = 4 THEN
  20.    INPUT b:BUDCAT.CMD
  21. ENDIF
  22. IF MAIN = 5 THEN
  23.    INPUT b:CLEAR.CMD
  24. ENDIF
  25. IF MAIN = 6 THEN
  26.    INPUT b:PRINT.CMD
  27. ENDIF
  28. IF MAIN = 7 THEN
  29.    QUIT
  30. ENDIF
  31. IF MAIN = 9 THEN
  32.    EXIT
  33. ENDIF
  34. QUIT TO b:RCHECK.CMD
  35.  
  36.